home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_105_Dialog < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.0 KB  |  60 lines
  1. { %filename% -- dialog }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit U%dlogname%;
  5. Interface
  6.  
  7. Uses
  8. %if lang = Think%
  9.         SysEqu, Traps, ULoMem,                 {}
  10.         UMacAppUtilities, UPatch,              {}    
  11.         UObject, UViewCoords, UMemory,         {}
  12.         UFailure, UMenuSetup, UList,         {}
  13.         UAssociation,                        {}
  14.         UMacApp,                            {}
  15.         UGridView, UTEView, UDialog,        {}
  16.         UAMLibraryM,                         {}
  17.         ResourceDefs;
  18. %else%
  19.         UMacApp, 
  20.         UGridView,
  21.         UTEView, 
  22.         UDialog,
  23.         UAMLibraryM,
  24.         Types, 
  25.         Packages,
  26.         ResourceDefs;
  27. %endif%
  28.  
  29. Type
  30.     T%dlogname%        = Object (TDialogView)
  31.         Procedure DoChoice    (origView:        TView;
  32.                              itsChoice:        integer); Override;
  33.         {$IFC qInspector}
  34.         Procedure Fields    (
  35.                 Procedure DoToField    (fieldName:        Str255;
  36.                                      fieldAddr:        Ptr;
  37.                                      fieldType:        integer)
  38.                             ); Override;
  39.         {$ENDC}
  40.     end;
  41.     %for each item gen classDecl%
  42.  
  43. {----------}
  44. %if modeless%
  45.     Function  New%dlogname%: TWindow;
  46. %else%
  47.     Procedure Do%dlogname%;
  48. %endif%
  49.  
  50. {----------}
  51. Implementation
  52.  
  53. %If lang = MPW%
  54.     {$I U%dlogname%.inc.p}
  55. %else%
  56.     %Dialog.inc%
  57. %endif%
  58.  
  59. End. {%unitname%}
  60.